home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / mtprsrc.dir / Internal_52_S1-Set Topic screen.ls < prev    next >
Encoding:
Text File  |  2005-10-31  |  2.4 KB  |  54 lines
  1. on exitFrame me
  2.   global gMapList
  3.   gMapList = MapMenuSetup()
  4.   if the number of lines in gMapList > 1 then
  5.     vPicName = "genericIntro.pct"
  6.     vBanName = "genericbnr.pct"
  7.     vBanName2 = "genericbnr2.pct"
  8.   else
  9.     case the machineType of
  10.       256:
  11.         mapFilename = the pathname & "..\MTdata\" & line 1 of gMapList
  12.       otherwise:
  13.         mapFilename = the pathname & ":MTdata:" & line 1 of gMapList
  14.     end case
  15.     mapFile = new(xtra("fileIO"))
  16.     openFile(mapFile, mapFilename, 1)
  17.     if status(mapFile) = 0 then
  18.       gMovieMap = readFile(mapFile)
  19.       closeFile(mapFile)
  20.       the itemDelimiter = ";"
  21.       thePath = item 1 of line 1 of gMovieMap
  22.       the itemDelimiter = ":"
  23.       theCD = item 1 of line 1 of thePath
  24.       vPicName = theCD & "Intro.pct"
  25.       vBanName = theCD & "bnr.pct"
  26.       vBanName2 = theCD & "bnr2.pct"
  27.     else
  28.       vPicName = "genericIntro.pct"
  29.       vBanName = "genericbnr.pct"
  30.       vBanName2 = "genericbnr2.pct"
  31.     end if
  32.     mapFile = 0
  33.   end if
  34.   if the machineType = 256 then
  35.     member("TopicScreen").fileName = the pathname & "..\MTdata\pics\" & vPicName
  36.     member("banner").fileName = the pathname & "..\MTdata\pics\" & vBanName
  37.     member("banner2").fileName = the pathname & "..\MTdata\pics\" & vBanName2
  38.     member("infoCoreCats").fileName = the pathname & "..\MTdata\pics\" & "infoCoreCats.pct"
  39.     member("infoLegal").fileName = the pathname & "..\MTdata\pics\" & "infoLegal.pct"
  40.     member("infoMusic").fileName = the pathname & "..\MTdata\pics\" & "infoMusic.pct"
  41.     member("infoProduction").fileName = the pathname & "..\MTdata\pics\" & "infoProduction.pct"
  42.     member("infoSpecialThanks").fileName = the pathname & "..\MTdata\pics\" & "infoSpecialThanks.pct"
  43.   else
  44.     member("TopicScreen").fileName = the pathname & ":MTdata:pics:" & vPicName
  45.     member("banner").fileName = the pathname & ":MTdata:pics:" & vBanName
  46.     member("banner2").fileName = the pathname & ":MTdata:pics:" & vBanName2
  47.     member("infoCoreCats").fileName = the pathname & ":MTdata:pics:" & "infoCoreCats.pct"
  48.     member("infoLegal").fileName = the pathname & ":MTdata:pics:" & "infoLegal.pct"
  49.     member("infoMusic").fileName = the pathname & ":MTdata:pics:" & "infoMusic.pct"
  50.     member("infoProduction").fileName = the pathname & ":MTdata:pics:" & "infoProduction.pct"
  51.     member("infoSpecialThanks").fileName = the pathname & ":MTdata:pics:" & "infoSpecialThanks.pct"
  52.   end if
  53. end
  54.